home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ Install Locations.xpl < prev    next >
Text File  |  2001-09-01  |  2KB  |  72 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="4"
  3. "COUNT"="5"
  4. "UIPATH 1"="System\File System\Folders\System"
  5. "NAME"="Windows Install Locations"
  6. "OSVERSION"="10101"
  7. "VERSION"="1.11"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Install 1"
  10. "TEXT 2"="Install 2"
  11. "TEXT 3"="Install 3"
  12. "TEXT 4"="Install 4"
  13. "TEXT 5"="Install 5"
  14. "DESCRIPTION 1"="For Win9x/ME: To change the locations Windows looks for when installing new hardware, browse to location of choice."
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "AUTHOR"="Ojatex@aol.com"
  17. "CONTACTURL"="http://members.aol.com/ojatex/"
  18. "COMMENT 1"="For X-Setup program information, go to http://www.xteq.com"
  19.  
  20. sPath="HKCU\InstallLocationsMRU\"
  21. v1="a\"
  22. v2="b\"
  23. v3="c\"
  24. v4="d\"
  25. v5="e\"
  26.  
  27. Sub Plugin_Initialize 
  28. if RegPathExists(sPath) then
  29.    s=RegReadValue(sPath & v1)
  30.    SetUIElement 1,s
  31.  
  32.    s=RegReadValue(sPath & v2)
  33.    SetUIElement 2,s
  34.  
  35.    s=RegReadValue(sPath & v3)
  36.    SetUIElement 3,s
  37.  
  38.    s=RegReadValue(sPath & v4)
  39.    SetUIElement 4,s
  40.  
  41.    s=RegReadValue(sPath & v5)
  42.    SetUIElement 5,s
  43. else
  44.    Call Disable()
  45. end if
  46.  
  47. End Sub
  48.  
  49. Sub Plugin_CheckData(ElementIndex)
  50. End Sub
  51.  
  52. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  53.  s=GetUIElement(1)
  54.   Call RegWriteValue(sPath & v1,s,1)
  55.  
  56.  s=GetUIElement(2)
  57.   Call RegWriteValue(sPath & v2,s,1)
  58.  
  59.  s=GetUIElement(3)
  60.   Call RegWriteValue(sPath & v3,s,1)
  61.  
  62.  s=GetUIElement(4)
  63.   Call RegWriteValue(sPath & v4,s,1)
  64.  
  65.  s=GetUIElement(5)
  66.   Call RegWriteValue(sPath & v5,s,1)
  67.  
  68. End Sub
  69.  
  70. Sub Plugin_Terminate 
  71. End Sub
  72.